home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Assassins - Ultimate CD Games Collection 2
/
Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso
/
cards-&-quiz
/
machine_poker
/
machine poker.doc
< prev
next >
Wrap
Text File
|
1995-01-01
|
5KB
|
83 lines
*** M A C H I N E P O K E R ***
Written in 1993 for AMOS Basic by Glenn N Babic
This program simulates the sort of Poker machine that can be found in casinoes
and private clubs around Australia. However, there are many different varia-
tions of these machines so this simulator will not suit all of them. Some of
the source code is easy to edit (see NB below) but for machines that, say, use
the suits of seven as "wild cards", changes would be much more complicated.
Instructions
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
To enter credits (used for betting) into the computer, the ENTER key in used
like a coin slot, for putting in $1 coins (which buy five credits, as each
credit is worth 20¢). The UP and DOWN cursor keys increase and decrease your
bet respectively by a credit (a maximum of 20 credits can be bet at any one
time). The SPACE BAR is used to deal a hand after betting and to redeal for any
discarded cards. RETURN allows you to "Take Score" (to collect any winnings
after a hand is complete). To hold one of the cards, the first five function
keys are used, representing the five cards in their respective orders. To
"unhold" a card, the corresponding function key should be pressed a second time.
When a winning hand has been made, the player can go for double or nothing
instead of taking score by pressing "D". A face down card will be displayed and
its value must be determined. Press "<" for small (ace to six) and ">" for big
(eight to king). If the guess is correct then the value of the winning hand
will be seen to double. "Doubling-Up" can continue until the player "Takes
Score" or guesses incorrectly and that hand's winnings are lost. You can see
how much money you have entered into the "machine" and also how much you have
won or lost (profit-wise) at the bottom of the screen in yellow text. If you
wish to quit or restart the program then press ESC while you have a bet of 0 and
you will be given these options ("Q" for quit, "R" for restart, and "C" for
cancel). A line of wide text beneath the cards tells you when most of these
functions can be performed.
Nota Bene!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Although it is not illegal to play these games, it IS for unlicensed venues to
pay-out (though that doesn't necessarily stop them!). Hopefully you will find
this program serves useful practise while offering the comfort that if you lose
big you will be none the poorer (and similarly the dissapointment that if you
win big you will be none the richer!). Don't let this program motivate you to
play the real money guzzling machines - using this program sensibly (i.e.
entering an amount of money you could actually afford to gamble and betting a
number of credits you afford to risk) shows that you ultimately lose more than
you win (obviously, or the machines wouldn't make a profit, now would they?).
As different machines work differently, I have noted in the procedure
SET_UP_PLAYING_SCREEN how to change the data for the amounts that winning hands
pay-out. Also in this procedure I have included a special function that changes
"Aces Or Better" into "Jacks Or Better" (one pair of jacks, queens, kings, or
aces) if activated. Deleting the apostrophes (') in front of several lines in
this procedure will make the game play like some of the machines at Perth's
Burswood Casino.
More Technical Info
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Although it didn't take too much mind racking to write this program, the artwork
for the cards took some time and planning. If you would like to use the cards
in your own programs, then you will have to open up at least an eight colour
screen and have the same icon bank loaded (the IFF picture from which they were
cut should be on the disk). Then whenever you wish to draw a card on the
screen, call procedure MAKE_CARD[CX,CY,NUMBER,SUIT] where CX,CY is the co-
ordinate of the top-left corner of the card, NUMBER is its value (1=ace to 13=
king) and SUIT is its suit! (1=spades, 2=clubs, 3=hearts and 4=diamonds). The
cards in this game are quite large and so the pictures could be shrunk in size
through Deluxe Paint etc. (Klondike.AMOS also on this disk uses a hires screen
so the cards are half the height and width. Also the cards in Klondike differ a
little, as instead of having shadows they're surrounded in a black border.
Because of this, the MAKE_CARD procedure in Klondike has a minor change to that
in Machine Poker). If you do decide to use these cards, please credit me and
keep all the designs intact (especially the Ace of Spades and the design on the
back of the cards - they have my initials on them!).
Post Script!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I have managed to get ALL the winning hands (Yes, even the Royal Flush!) on this
game. Let me see anyone else do that!
- Glenn N Babic
Reg. #1646